function [Event_Rate_Correlation, Event_Rate_Correlation_Mean] = Event_Rate_Correlation_One_Animal_One_Dose(Data_Summary, AnimalID, drug)

for n=1:size(Data_Summary,2)
    if strcmp(Data_Summary(n).animalName, AnimalID) && strcmp(Data_Summary(n).drug, drug)
        Event_Rate_Correlation(n,1)=Data_Summary(n).Event_Rate_Correlation;
    end
end
Event_Rate_Correlation(Event_Rate_Correlation==0)=[];
Event_Rate_Correlation_Mean = mean(Event_Rate_Correlation);

end